Public Class CProdTrans
    Dim _intCompany As Integer
    Dim _intVendor As Integer
    Dim _intProduct As Integer
    Dim _strBatch As String
    Dim _dtFrmDate As Date
    Dim _dtToDate As Date
    Dim _intOpr As Integer

    Public Property Company() As Integer
        Get
            Return _intCompany
        End Get
        Set(ByVal value As Integer)
            _intCompany = value
        End Set
    End Property
    Public Property Vendor() As Integer
        Get
            Return _intVendor
        End Get
        Set(ByVal value As Integer)
            _intVendor = value
        End Set
    End Property
    Public Property Product() As Integer
        Get
            Return _intProduct
        End Get
        Set(ByVal value As Integer)
            _intProduct = value
        End Set
    End Property
    Public Property Batch() As String
        Get
            Return _strBatch
        End Get
        Set(ByVal value As String)
            _strBatch = value
        End Set
    End Property
    Public Property FromDate() As Date
        Get
            Return _dtFrmDate
        End Get
        Set(ByVal value As Date)
            _dtFrmDate = value
        End Set
    End Property
    Public Property ToDate() As Date
        Get
            Return _dtToDate
        End Get
        Set(ByVal value As Date)
            _dtToDate = value
        End Set
    End Property
    Public Property Operation() As Integer
        Get
            Return _intOpr
        End Get
        Set(ByVal value As Integer)
            _intOpr = value
        End Set
    End Property
End Class